5 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,0:POKE53280,0:DIMB$(3,16):R=RND(-TI)
20 OPEN2,DV,2,"OB LIST"
22 GET#2,A$,A$
24 FORI=0TO2:FORJ=0TO15
26 INPUT#2,B$(I,J)
28 NEXT:NEXT:CLOSE2
30 X(0)=1:X(1)=15:X(2)=27
40 GOTO100
50 FORI=0TO2:PRINT"[155]":FORJ=0TO15
52 PRINTTAB(X(I))B$(I,J)
54 NEXT:NEXT:RETURN
100 PRINT"[147][129]         [207][207][199][204][197] [194][207][207][199][204][197] [199][197][206][197][210][193][212][207][210]"
110 PRINT"     [198]ROM THE MIND OF [198]RANK [214]ANAMAN"
120 GOSUB50
150 PRINT"[159] [213]SE [195][210][211][210] KEYS[159] AND [211][208][193][195][197][159] TO HIGHLIGHT
152 [153]" ONE WORD IN EACH COLUMN.  (null)RESS (null)OPEN FOR
154 PRINT" A RANDOM PICK.  [208]RESS [209][159] TO QUIT."
200 X=0:Y=0:F(0)=0:F(1)=0:F(2)=0:W$(0)="":W$(1)="":W$(2)=""
210 IFF(0)+F(1)+F(2)=3THEN300
215 POKE214,3+Y:PRINT:PRINTTAB(X(X))""B$(X,Y)"[145]"
220 POKE198,0
230 GETA$:IFA$=""THEN230
232 IFW$(X)=B$(X,Y)THENPRINTTAB(X(X))"[158]"B$(X,Y):GOTO240
234 PRINTTAB(X(X))"[155]"B$(X,Y)
238 IFA$="R"THEN400
240 IFA$="Q"THEN500
242 IFA$<>" "THEN250
244 IFF(X)THEN247
246 PRINTTAB(X(X))"[145][158]"B$(X,Y):F(X)=1:W$(X)=B$(X,Y)
247 X=X+1:IFX>2THENX=0
248 GOTO210
250 IFA$="[145]"THENY=Y-1:IFY<0THENY=15
260 IFA$=""THENY=Y+1:IFY>15THENY=0
270 IFA$=""THENX=X+1:IFX>2THENX=0
280 IFA$="[157]"THENX=X-1:IFX<0THENX=2
290 GOTO210
300 FORI=20TO23:POKE781,I:SYS59903:NEXT
310 POKE214,20:PRINT
320 PRINT"[154] [193]S AN [207]OGLE [194]OOGLER, YOU MAY NOW SAY
330 WW$[178]W$(0)[170]" "[170]W$(1)[170]" "[170]W$(2)
335 [153][163]19[171]([195](WW$)[173]2))"OPEN"WW$
340 [153]" CONTAND BE THOUGHT OF AS WISE AND SMART."
345 [153][163]14)"(null)RESS A KEY"
350 [151]198,0
360 [161]A$:[139]A$[178]""[167]360
370 [137]100
400 [141]50
410 [129]I[178]0[164]2:R[178][181]([187](1)[172]15)
420 [151]214,3[170]R:[153]:[153][163]X(I))"SYS"B$(I,R)
430 W$(I)[178]B$(I,R)
440 [130]
450 [137]300
500 [129]I[178]8[164]9:[159]15,I,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
510 [139]ER[178]63[167]DV[178]I:I[178]9:[130]:[137]530
520 [130]:[153]"LOAD":[128]
530 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)","DV
540 [153]"RUN"
550 [151]631,13:[151]632,13:[151]198,2:[128]
999 [137]999
10000 [159]15,8,15,"S0:OOGLE BOOGLE":[160]15:[148]"OOGLE BOOGLE",8:[128]